home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1993 / 7 / 02 / shell-tips / datum.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-06-01  |  1.1 KB  |  29 lines
  1. /* Datumsausgabe mit Begrüßung */
  2.  
  3. Datum=date(s) ; Tag=date(w) ; Zeit=Time(n)
  4. T=1*right(Datum,2) ; MNr=substr(Datum,5,2) ; J=left(Datum,4)
  5. Stunde=left(Zeit,2)
  6.  
  7. Monate = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
  8. TageE = "Monday Tuesday Wednesday Thursday Friday Saturday Sunday"
  9. TageD = "Montag Dienstag Mittwoch Donnerstag Freitag Samstag Sonntag"
  10.  
  11. if Stunde >=0  & Stunde <=3  then Begr="Hi, so spät noch aktiv ???"
  12. if Stunde >3   & Stunde <=6  then Begr="So früh am Computer? Geh' lieber ins Bett!"
  13. if Stunde >6   & Stunde <=8  then Begr="Guten Morgen! Schon so früh auf?"
  14. if Stunde >8   & Stunde <=12 then Begr="Guten Morgen."
  15. if Stunde >12  & Stunde <=18 then Begr="Guten Tag."
  16. if Stunde >18  & Stunde <=23 then Begr="Guten Abend."
  17. if MNr=12 & T=31 then Begr="Ich wünsche eine feuchtfröhliche Silvester-Party!"
  18. if MNr=01 & T=1  then Begr="Ich wünsche ein frohes neues Jahr."
  19. if MNr=12 & T=24 then Begr="Frohe Weihnachten User!"
  20.  
  21. MonatName = word(Monate,MNr)
  22. TNr = find(TageE,Tag)
  23. TagName = word(TageD,TNr)
  24.  
  25. say ""; say Begr; say ""
  26. say "Heute ist "TagName" der" T". "MonatName" "J". Es ist "left(Zeit,5)" Uhr"
  27. exit
  28.  
  29.